Public Class MultiEquipo

    Public Shared Function LevantarListaEquipos(ByVal idGrupo As Integer) As List(Of Equipo)

        Dim listaEquipos As New List(Of Equipo)

        Dim dtEquipos As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarEquiposTableAdapter
        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarEquiposDataTable

        dtEquipos.Fill(dt, idGrupo)

        If dt.Rows.Count = 0 Then
            Throw New Exception("No hay un equipos asignados a ese grupo")
        End If

        For Each row As capaAccesoBD.CrystalGradesDataSet.sp_LevantarEquiposRow In dt.Rows
            Dim equipo As New Equipo(row.nombre, row.idEquipo)
            listaEquipos.Add(equipo)
        Next
        Return listaEquipos
    End Function

    Public Shared Function BuscarEquipo(ByVal idgrupo As Integer, ByVal nombre As String) As Equipo
        Dim dtEquipo As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_BuscarEquipoTableAdapter
        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_BuscarEquipoDataTable
        dtEquipo.Fill(dt, idgrupo, nombre)

        If (dt.Rows.Count = 0) Then
            Throw New Exception("No equipos registrados con ese nombre")
        End If
        Dim row As capaAccesoBD.CrystalGradesDataSet.sp_BuscarEquipoRow = dt.Rows(0)
        Dim equipo As Equipo

        equipo = New Equipo(row.nombre, row.idEquipo)
        Return equipo
    End Function


    Public Shared Function CrearEquipo(ByVal idGrupo As Integer, ByVal nombre As String) As Equipo
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_RegistrarEquipo(idGrupo, nombre)
        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()

        Dim equipo As Equipo = MultiEquipo.BuscarEquipo(idGrupo, nombre)
        Return equipo
    End Function

    Public Shared Sub AgregarEstudiante(ByRef estudiante As Estudiante, ByVal codigoequipo As Integer)
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_RegistrarEstudiantePorEquipo(codigoequipo, estudiante.Carnet)
        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()
    End Sub

    Public Shared Sub DesasignarEstudiante(ByRef estudiante As Estudiante, ByVal codigoequipo As Integer)
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_DesasignarEstudiantePorEquipo(codigoequipo, estudiante.Carnet)
        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()
    End Sub
    'ale
    Public Shared Function LevantarEquipos(ByVal pidGrupo As Integer) As DataTable

        Dim listaEquipos As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarEquiposTableAdapter

        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarEquiposDataTable

        listaEquipos.Fill(dt, pidGrupo)

        Return dt
    End Function

    'Public Shared Function BuscarEquipoGrupo(ByVal pidGrupo As Integer) As Equipo

    '    Dim idEquipo As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_BuscarEquipoGrupoTableAdapter
    '    Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_BuscarEquipoGrupoDataTable
    '    idEquipo.Fill(dt, pidGrupo)

    '    Dim row As capaAccesoBD.CrystalGradesDataSet.sp_BuscarEquipoGrupoRow = dt.Rows(0)
    '    Dim equipo As Equipo
    '    equipo = New Equipo(row.nombre, row.idEquipo)

    '    Return equipo
    'End Function
    Public Shared Sub ModificarEquipo(ByVal pnombre As String, ByVal pidEquipo As Integer)
        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter

        dt.sp_ModificarEquipo(pnombre, pidEquipo)
        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()
    End Sub



End Class
